home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ReOrganize.zprx < prev    next >
Text File  |  1995-01-24  |  2KB  |  101 lines
  1. /*
  2.  
  3.    $VER: ReOrganize 1.02 (23.01.95) Copyright (c) Jörn Krüger
  4.  
  5.    Funktion:
  6.    ---------
  7.    ReOrganize löscht alle mit L markierten Nachrichten in den
  8.    ZPoint-Brettern. Der Einsatz ist eigentlich nur mit einem
  9.    Cron-Utility sinnvoll. (z.B. CyberCron)
  10.  
  11.    Installation:
  12.    -------------
  13.    1. Datei unter dem Namen ReOrganize.zprx in das Verzeichniss REXX:
  14.       oder ZPoint:rexx kopieren
  15.    2. Startpfad für ZPoint im Script anpassen
  16.    3. Ohne Parameter vom CLI aus starten (RX ReOrganize.zprx)
  17.    4. Nach dem Durchlauf wird die Anzahl der gelöschten
  18.       Nachrichten angezeigt.           
  19.  
  20.    History:
  21.    --------
  22.    1.00 05.01.95    erste Version
  23.    1.01 06.01.95    Kommentare eingefügt
  24.    1.02 23.01.95    potentieller Fehler in "Reorganize starten"
  25.                     entfernt (Tip von R. Seichter)
  26.  
  27.    Schwächen:
  28.    ----------
  29.    Zur Zeit arbeitet es nur mit einem ZPoint Port
  30.  
  31.    Autor:
  32.    ------
  33.    Jörn Krüger       Krueger@amigafun.westfalen.de
  34.    Zur Wiese 7
  35.    48163 Münster
  36.    02536 / 1205
  37.  
  38.    Rechtliches:
  39.    ------------
  40.    Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  41.    mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  42.    nicht ohne Erlaubnis des Autors.
  43.  
  44.  
  45. */
  46.  
  47. /* Startup */
  48.  
  49. OPTIONS RESULTS
  50. GELADEN = 0
  51.  
  52. /* ZPoint suchen und starten wenn nicht vorhanden */
  53.  
  54. if ~SHOW('P', 'ZPoint') then do
  55.     ADDRESS COMMAND
  56.  
  57.  
  58.     /* ----------- Hier eigenen Pfad eintragen!!! ------------ */
  59.     'Run >NIL: SYS:DFÜ/zp CONFIG=SYS:Prefs/Presets/AIGM.zp'
  60.     /* ------------------------------------------------------- */
  61.  
  62.  
  63.     GELADEN = 1
  64.  
  65.     do 2 while ~SHOW( 'P', 'ZPoint' )
  66.         'WaitForPort ZPoint'
  67.     end
  68.  
  69.     if RC = 5 then do
  70.         say 'ZPoint konnte nicht geladen werden!'
  71.         EXIT
  72.     end
  73. end
  74.  
  75.  
  76. /* Jetzt sollte ZPoint auf jeden Fall geladen sein */
  77.  
  78. ADDRESS 'ZPoint'
  79.  
  80. /* in das Boardmenu wechseln */ 
  81. WHICHLEVEL
  82. if (RESULT ~= "BOARDMENU") then do
  83.     BOARDMENU
  84. end
  85.  
  86. /* Reorganisation starten */
  87. REORGANIZE
  88. killed = RESULT
  89.  
  90. SAY 'Gelöschte Nachrichten: 'killed
  91.  
  92. IF killed = 0 THEN
  93.    mainmenu
  94.  
  95. /* ZPoint beenden wenn es nachträglich gestartet wurde */
  96. if GELADEN = 1 then do
  97.    SHUTUP
  98. end
  99.  
  100.  
  101.